home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v9n19.arc / SBOX < prev    next >
Text File  |  1990-10-13  |  1KB  |  49 lines
  1.  
  2. *
  3. * TEST program for procedure sbox
  4. *
  5. SET COLOR TO w+/r
  6. CLEAR
  7. pcmag="PC Magazine PC Magazine PC Mag"+;
  8.       "azine PC Magazine PC Magazine "+;
  9.       "PC Magazine PC Mag"
  10. single = CHR(218)+CHR(196)+CHR(191)+;
  11. CHR(179)+CHR(217)+CHR(196)+CHR(192)+;
  12. CHR(179)
  13. @ 0,0,24,79 BOX single+"x"
  14. i = 1
  15. DO WHILE i <=23
  16.    @ i,1 SAY pcmag
  17.    i = i + 1
  18. ENDDO
  19. DO sbox WITH 7,20,17,60,"w+/gr"
  20. @ 12,27 SAY "Hello!"
  21. @ 12,34 SAY "Can you see my shadow?"
  22. INKEY(0)
  23. RETURN
  24. *
  25. * PROCEDURE sbox(x1, y1, x2, y2, clr)
  26. *
  27. * draw box with shadow
  28. *
  29. PROCEDURE sbox
  30. PARAMETERS x1, y1, x2, y2, clr
  31. PRIVATE v,h,i
  32. v = SAVESCREEN(x1+1,y2+1,x2+1,y2+2)  && save shaded
  33. h = SAVESCREEN(x2+1,y1+2,x2+1,y2+2)  && area
  34. FOR i = 2 TO LEN(h) STEP 2           && dim the
  35.    h = STUFF(h,i,1,CHR(7))           && area with
  36. NEXT                                 && color "w/n"
  37.                                      && (chr(7))
  38. FOR i = 2 TO LEN(v) STEP 2
  39.    v = STUFF(v,i,1,CHR(7))
  40. NEXT
  41. SET COLOR TO &clr
  42. @ x1,y1 CLEAR TO x2,y2               && draw box
  43. @ x1,y1 TO x2,y2
  44. RESTSCREEN(x1+1,y2+1,x2+1,y2+2,v)    && draw its
  45. RESTSCREEN(x2+1,y1+2,x2+1,y2+2,h)    && shadow
  46. RETURN
  47.  
  48.  
  49.